home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / R-Shows / (c)expo88b.d64 / b2 (.txt) < prev    next >
Commodore BASIC  |  2009-02-03  |  142b  |  7 lines
  1. 10 IFA=1THENSYS49152:GOTO50
  2. 20 IFA=2THENSYS65371:SYS7869:GOTO60
  3. 30 IFA=3THENSYS4690:END
  4. 40 POKE45,200:POKE46,8:CLR:A=1:LOAD"T",8,1
  5. 50 A=2:LOAD"ALL21",8,1
  6. 60 A=3:LOAD"VX43+",8,1
  7.